home *** CD-ROM | disk | FTP | other *** search
/ Megahits 3 / Megahits 3 (1994)(GTI - Rhein-Main-Soft)(DE)[!].iso / rms_katalog / rms-katalog < prev    next >
Text File  |  1994-10-14  |  3KB  |  69 lines
  1. failat 21
  2. stack 8000
  3. copy >NIL: MEGAHITS_SPIELE_EINS:RMS_Katalog/RMSFiles/mm ram:
  4.  
  5.  
  6. ;if not exists ram:T
  7.     copy "MEGAHITS_SPIELE_EINS:RMS_Katalog/RMSFiles/Schubi" TO ram:T QUIET ;dummy Verzeichnis
  8.     assign T: ram:T
  9. endif
  10.  
  11. ;if not exists ram:ENV
  12.     copy "MEGAHITS_SPIELE_EINS:RMS_Katalog/RMSFiles/Schubi" TO ram:ENV QUIET
  13.     assign ENV: ram:Env
  14. endif
  15.  
  16. version >NIL:
  17. setenv Workbench $Workbench
  18. setenv Kickstart $Kickstart
  19.  
  20. echo "    *n*e[1;32m    ____________________________________________________________________"
  21. echo "    *e[43m                                                                    *e[0m"
  22. echo "    *e[0;32;43m                            RHEIN-MAIN-SOFT       *e[1m                  *e[0m"
  23. echo "    *e[0;32;43m                                                  *e[1m                  *e[0m"
  24. echo "    *e[0;32;43m                                KATALOG           *e[1m                  *e[0m"
  25. echo "    *e[0;32;43m                                                  *e[1m                  *e[0m"
  26. echo "    *e[0;32;43m                         KICKSTART 2.x VERSION    *e[1m                  *e[0m"
  27. echo "    *e[1;4;43m                                                                    *e[0m"
  28. ram:mm MEGAHITS_SPIELE_EINS:RMS_Katalog/RMSFiles/angebot
  29. wait 4
  30.  
  31.  
  32. eval $Kickstart >Env:Kick  ;Ganzzahl erzeugen
  33. ;if $Kick GE 37 VAL
  34.  
  35. :c/cls
  36.  
  37.     echo "    *n*n    Lade den Katalog..."
  38.     assign libs:  "MEGAHITS_SPIELE_EINS:RMS_Katalog/RMSFiles" ADD
  39.     assign fonts: "MEGAHITS_SPIELE_EINS:RMS_Katalog/RMSFiles" ADD
  40. :c/cls
  41.  
  42.     MEGAHITS_SPIELE_EINS:RMS_Katalog/RMSmenu >NIL:
  43.  
  44.     wait 2
  45.     echo "    *n*n*n        Sollten Sie noch Fragen haben, setzen Sie Sich bitte mit uns"
  46.     echo "        unter folgender Adresse in Verbindung:*n*n"
  47.     echo "    *e[32m                          Rhein-Main-Soft *e[0m"
  48.     echo "    *e[32m                           Postfach 2167 *e[0m"
  49.     echo "    *e[32m                         D-61411 Oberursel *e[0m"
  50.     echo "    *e[32m                 Tel: 06171/268301 Fax:06171/23491 *e[0m"
  51.     echo "    *e[32m                       Mailbox: 06171/21850 *e[0m"
  52.     wait 4
  53.     endcli
  54.  
  55. else
  56.  
  57.     echo "    *n*n        Tut mit leid, dieses Katalog-Menü läuft erst ab Kickstart 2.x"
  58.     echo "        Benötigen Sie ein Katalog-Set für Kickstart 1.3, dann setzen Sie"
  59.     echo "        Sich bitte mit uns unter folgender Adresse in Verbindung:*n*n"
  60.     echo "    *e[32m                          Rhein-Main-Soft *e[0m"
  61.     echo "    *e[32m                           Postfach 2167 *e[0m"
  62.     echo "    *e[32m                         D-61411 Oberursel *e[0m"
  63.     echo "    *e[32m                 Tel: 06171/268301 Fax:06171/23491 *e[0m"
  64.     echo "    *e[32m                       Mailbox: 06171/21850 *e[0m"
  65.     wait 4
  66.     endcli
  67.  
  68. endif
  69.